   1 clear ;print "THIS IS A SL0T MACHINE"
  30 print "WINNING COMBINATIONS ARE"
  40 print ;print "3 BARS"
  41 print "3 CHERRYS"
  42 print "3 0RANGES"
  45 print ;print "PAY0FF IS $6.00"
  50 print "HOW MANY DOLLARS DO YOU"
  55 print "WANT to PLAY ?"
  60 input M
  80 print "YOU START WITH $",#1,M,".00"
  90 for B=1 to 500
 100 next B
 120 B=0;O=0;C=0;clear 
 150 for I=1to 3
 160 N=rnd (3)
 165 if N=3goto 240
 170 if N=2goto 210
 180 NT=5;print "****BAR*****";NT=0
 190 B=B+1;goto 260
 210 NT=3;print "***CHERRY***";NT=0
 220 O=O+1;goto 260
 240 NT=4;print "***ORANGE***";NT=0
 250 C=C+1
 260 next I
 270 if B=3goto 350
 280 if O=3goto 350
 290 if C=3goto 350
 300 print "  TOO BAD YOU LOST"
 305 if M<1goto 1
 310 M=M-1;print 
 330 if M=0goto 400
 340 goto 380
 350 print "LUCKY.....YOU WON $6.00"
 360 M=M+6
 365 B=rnd (3);O=rnd (3);C=rnd (3)
 370 print 
 380 print "YOU NOW HAVE $",#1,M,".00"
 381 print "PUSH 0
 390 goto 420
 400 print "YOU HAVE LOST IT ALL"
 401 if KP-48=0goto 1
 410 print 
 420 if KP-48=0goto 120
>:return 